Hyper Stacks 1994 May/Hyper Stacks (Pacific HiTech)(1994)[Mac].iso/Math/Unit Conversion/card_4416.txt

Text File | 1990-11-02 | 9.5 KB | 405 lines

-- card: 4416 from stack: in
-- bmap block id: 7380
-- flags: 0000
-- background id: 3044
-- name: Distance
----- HyperTalk script -----
on closeCard
  put empty into background field "toconvert"
  put empty into background field "answer"
end closeCard



-- part 15 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=286 top=49 right=76 bottom=467
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Centimeters to Inches
----- HyperTalk script -----
on mouseUp
  set numberformat to 0.000
  put empty into background field "answer"
  get first word of background field "toconvert"
  put it into temp
  if temp is "-" then
    get second word of background field "toconvert"
    divide it by -1
    put it into temp
  end if
  put empty into background field "toconvert"
  if temp is empty then
    put temp && "0 Centimeters" into background field "toconvert"
  else
    put temp && " Centimeter" into background field "toconvert"
  end if
  divide temp by 2.540
  put temp && " Inches" into background field "answer"
  put empty into temp
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=287 top=77 right=104 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Inches to Centimeters
----- HyperTalk script -----
on mouseUp
  set numberformat to 0.000
  put empty into background field "answer"
  get first word of background field "toconvert"
  put it into temp
  if temp is "-" then
    get second word of background field "toconvert"
    divide it by -1
    put it into temp
  end if
  put empty into background field "toconvert"
  if temp is empty then
    put temp && "0 Inches" into background field "toconvert"
  else
    put temp && " Inches" into background field "toconvert"
  end if
  multiply temp by 2.540
  put temp && " Centimeters" into background field "answer"
  put empty into temp
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=288 top=111 right=138 bottom=469
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Meters to Feet
----- HyperTalk script -----
on mouseUp
  set numberformat to 0.000
  put empty into background field "answer"
  get first word of background field "toconvert"
  put it into temp
  if temp is "-" then
    get second word of background field "toconvert"
    divide it by -1
    put it into temp
  end if
  put empty into background field "toconvert"
  if temp is empty then
    put temp && "0 Meters" into background field "toconvert"
  else
    put temp && " Meters" into background field "toconvert"
  end if
  multiply temp by 3.281
  put temp && " Feet" into background field "answer"
  put empty into temp
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=288 top=139 right=166 bottom=469
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Feet to Meters
----- HyperTalk script -----
on mouseUp
  set numberformat to 0.000
  put empty into background field "answer"
  get first word of background field "toconvert"
  put it into temp
  if temp is "-" then
    get second word of background field "toconvert"
    divide it by -1
    put it into temp
  end if
  put empty into background field "toconvert"
  if temp is empty then
    put temp && "0 Feet" into background field "toconvert"
  else
    put temp && " Feet" into background field "toconvert"
  end if
  divide temp by 3.281
  put temp && " Meters" into background field "answer"
  put empty into temp
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=288 top=172 right=199 bottom=469
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Meters to Yards
----- HyperTalk script -----
on mouseUp
  set numberformat to 0.000
  put empty into background field "answer"
  get first word of background field "toconvert"
  put it into temp
  if temp is "-" then
    get second word of background field "toconvert"
    divide it by -1
    put it into temp
  end if
  put empty into background field "toconvert"
  if temp is empty then
    put temp && "0 Meters" into background field "toconvert"
  else
    put temp && " Meters" into background field "toconvert"
  end if
  multiply temp by 1.0936
  put temp && " Yards" into background field "answer"
  put empty into temp
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=289 top=201 right=228 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Yards to Meters
----- HyperTalk script -----
on mouseUp
  set numberformat to 0.000
  put empty into background field "answer"
  get first word of background field "toconvert"
  put it into temp
  if temp is "-" then
    get second word of background field "toconvert"
    divide it by -1
    put it into temp
  end if
  put empty into background field "toconvert"
  if temp is empty then
    put temp && "0 Yards" into background field "toconvert"
  else
    put temp && " Yards" into background field "toconvert"
  end if
  divide temp by 1.0936
  put temp && " Meters" into background field "answer"
  put empty into temp
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=289 top=231 right=258 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Kilometers to Miles
----- HyperTalk script -----
on mouseUp
  set numberformat to 0.000
  put empty into background field "answer"
  get first word of background field "toconvert"
  put it into temp
  if temp is "-" then
    get second word of background field "toconvert"
    divide it by -1
    put it into temp
  end if
  put empty into background field "toconvert"
  if temp is empty then
    put temp && "0 Kilometers" into background field "toconvert"
  else
    put temp && " Kilometers" into background field "toconvert"
  end if
  multiply temp by 0.6214
  put temp && " Miles" into background field "answer"
  put empty into temp
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=290 top=259 right=286 bottom=471
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Miles to Kilometers
----- HyperTalk script -----
on mouseUp
  set numberformat to 0.000
  put empty into background field "answer"
  get first word of background field "toconvert"
  put it into temp
  if temp is "-" then
    get second word of background field "toconvert"
    divide it by -1
    put it into temp
  end if
  put empty into background field "toconvert"
  if temp is empty then
    put temp && "0 Miles" into background field "toconvert"
  else
    put temp && " Miles" into background field "toconvert"
  end if
  divide temp by 0.6214
  put temp && " Kilometers" into background field "answer"
  put empty into temp
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=289 top=292 right=319 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Additional Notes
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to card addinfo
end mouseUp



-- part 41 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=75 top=306 right=323 bottom=134
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Temperature
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to card weight
end mouseUp



-- part 42 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=135 top=306 right=323 bottom=194
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Temperature
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to card temperature
end mouseUp



-- part 43 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=76 top=288 right=304 bottom=135
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Area
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to card Area
end mouseUp



-- part 44 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=135 top=288 right=305 bottom=194
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Volume
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to card Volume
end mouseUp



-- part contents for background part 7
----- text -----
Distance
Conversions